	CHARACTER*8 AD,AN
	CHARACTER*7 DAT,DAN
C
11	AD='        '
	AN='        '
	MAT2=1
C
1 	FORMAT(2A)
2	FORMAT(' CHECK MATCHED DATA AND REENTER',/,' ',4A)
C
10	READ(1,1,END=15)AD,DAT
	IF(AD(7:7).EQ.'0')AD(7:7)=' '
  	IF(AD.EQ.AN)THEN
			WRITE(6,2)AD,DAT,AN,DAN
			MAT2=1
			GO TO 10
			END IF
	IF(MAT2.EQ.0)THEN
			WRITE(2,1)AN,DAN
			AN=AD
			DAN=DAT
			GO TO 10
			END IF

	MAT2=0
	AN=AD
	DAN=DAT
	GO TO 10
15	IF(MAT2.EQ.0)THEN
			WRITE(2,1)AN,DAN
			END IF
	STOP
	END
